SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO






CREATE PROC [dbo].[SP_TXMVTO_CNTB_Q02]
/*-------------------------------------------------------------------*/
/*----- Empresa           : OFISIS S.A.                          ----*/
/*----- Cliente           : OFISIS S.A.                          ----*/
/*----- Sistema           : Contabilidad                         ----*/
/*----- Modulo            : Empresa                              ----*/
/*----- Programa          : Obtiene saldos de vouchers           ----*/
/*----- Nombre            : SP_TXMVTO_CNTB_Q02                   ----*/
/*----- Script            : TXMVTO_CNTB                          ----*/
/*----- Desarrollado por  : Maria Laura Uribe                    ----*/
/*----- Fecha             : 24/03/1998                           ----*/
/*----- Base de Datos     : MS SQL Server                        ----*/
/*----- Version BD        : 6.5                                  ----*/
/*-------------------------------------------------------------------*/
/*---- Modificado 1 por     : Yessica Morales                       ----*/  
/*---- Fecha Modificaci?n   : 12/11/2003                         ----*/      
/*---- Detalle Modificaci?n : Modificaci?n del estado de Desaprobaci?n de DES a DSP ----*/    
/*-------------------------------------------------------------------*/
/*----- Drop proc SP_TXMVTO_CNTB_Q02                             ----*/
/*----- Grant all on SP_TXMVTO_CNTB_Q02 to PUBLIC                ----*/
/*----- SP_TXMVTO_CNTB_Q02                                       ----*/
/*-------------------------------------------------------------------*/

@ISCO_EMPR	TD_VC_002,
@INNU_CNTB_EMPR	TD_IN_001_CONT,
@ISCO_UNID_CNTB	TD_VC_003,
@ISCO_OPRC_CNTB	TD_VC_003,
@INNU_ANNO	TD_IN_004_ANNO,
@INNU_MESE	TD_IN_002_MESE,
@ISNU_ASTO	TD_VC_010,
@ISCO_MONE_EMPR	TD_VC_003
 
As
Declare	
	@CSTI_OPER	TD_VC_003,
        @CSCO_MONE	TD_VC_003, 
	@ONIM_CARG      TD_NU_016_004, 
	@ONIM_ABON      TD_NU_016_004, 
	@CNIM_TOTA      TD_NU_016_004,  
        @CNIM_TOTA_ORIG TD_NU_016_004, 
        @ONIM_CARG_ORIG TD_NU_016_004, 
	@ONIM_ABON_ORIG TD_NU_016_004
Select @ONIM_CARG= 0  
Select @ONIM_ABON=0
Select @ONIM_CARG_ORIG=0
Select @ONIM_ABON_ORIG=0

Declare CU_TXMVTO_CNTB_Q02_1 Cursor 
For
Select IM_MVTO_CNTB, IM_MVTO_ORIG, TI_OPER, CO_MONE 
From	TXMVTO_CNTB
Where	CO_EMPR = @ISCO_EMPR   
and	NU_CNTB_EMPR = @INNU_CNTB_EMPR
and	CO_UNID_CNTB = @ISCO_UNID_CNTB
and	CO_OPRC_CNTB = @ISCO_OPRC_CNTB
and	NU_ANNO = @INNU_ANNO
and	NU_MESE = @INNU_MESE
and	NU_ASTO = @ISNU_ASTO
and	SI_MVTO_CNTB IN ( 'DIG', 'APR', 'DSP' )

Open	CU_TXMVTO_CNTB_Q02_1
Fetch	CU_TXMVTO_CNTB_Q02_1 Into @CNIM_TOTA, @CNIM_TOTA_ORIG, @CSTI_OPER, @CSCO_MONE

While @@Fetch_status = 0
Begin
	If @CSTI_OPER = 'CAR'
	Begin
		Select @ONIM_CARG = @ONIM_CARG + ROUND(@CNIM_TOTA,2)
		If @CSCO_MONE != @ISCO_MONE_EMPR
			Select @ONIM_CARG_ORIG = @ONIM_CARG_ORIG + ROUND(@CNIM_TOTA_ORIG,2)
	End
	Else If @CSTI_OPER = 'ABO'
	Begin
		Select @ONIM_ABON = @ONIM_ABON + ROUND(@CNIM_TOTA,2)
		If @CSCO_MONE != @ISCO_MONE_EMPR
			Select @ONIM_ABON_ORIG = @ONIM_ABON_ORIG + ROUND(@CNIM_TOTA_ORIG,2)
	End   
	Fetch CU_TXMVTO_CNTB_Q02_1 Into @CNIM_TOTA, @CNIM_TOTA_ORIG, @CSTI_OPER, @CSCO_MONE
End
Close CU_TXMVTO_CNTB_Q02_1
Deallocate CU_TXMVTO_CNTB_Q02_1

Select @ONIM_CARG, @ONIM_ABON, @ONIM_CARG - @ONIM_ABON, @ONIM_CARG_ORIG, @ONIM_ABON_ORIG, 
 @ONIM_CARG_ORIG - @ONIM_ABON_ORIG
Return
/*----------------------------------- Fin ---------------------------------*/







GO
